home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Sciences / Chemist's Helper / card_2903.txt < prev    next >
Text File  |  1989-10-27  |  4KB  |  187 lines
  1. -- card: 2903 from stack: in
  2. -- bmap block id: 3492
  3. -- flags: 0000
  4. -- background id: 2590
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on calculate2
  8.   global amount1
  9.   global amount2
  10.   global molar
  11.   global conc
  12.   global volume
  13.   global grav
  14.   put molar*volume*conc/1000 into amount2
  15.  
  16.   set the numberformat to "0.0"
  17. end calculate2
  18.  
  19.  
  20. -- part 3 (button)
  21. -- low flags: 00
  22. -- high flags: A003
  23. -- rect: left=97 top=281 right=323 bottom=267
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Calculate
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   global conc
  35.   global acid
  36.   global molar
  37.   global volume
  38.   global amount1
  39.   global amount2
  40.   calculate2
  41.   put empty into card field "acid"
  42.   hide card field "note"
  43.   put volume & " ml" into line 2 of card field "acid"
  44.   put "of" into line 3 of card field "acid"
  45.   put molar & " M" into line 4 of card field "acid"
  46.   put acid into line 5 of card field "acid"
  47.   put "USE" into line 7 of card field "acid"
  48.   --put amount1 & " ml" into line 7 of card field "acid"
  49.   --put "or" into line 8 of card field "acid"
  50.   put amount2 & " gms" into line 8 of card field "acid"
  51.   put "of" into line 9 of card field "acid"
  52.   put "Solid" into line 10 of card field "acid"
  53.   put acid into line 11 of card field "acid"
  54.  
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 4 (field)
  60. -- low flags: 01
  61. -- high flags: 0002
  62. -- rect: left=374 top=56 right=303 bottom=509
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 3
  67. -- text size: 12
  68. -- style flags: 256
  69. -- line height: 16
  70. -- part name: acid
  71.  
  72.  
  73. -- part 5 (button)
  74. -- low flags: 00
  75. -- high flags: 8004
  76. -- rect: left=14 top=262 right=287 bottom=80
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: OTHER
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   GLOBAL DIM
  88.   GLOBAL TOP
  89.   global molar
  90.   global volume
  91.   global acid
  92.   global conc
  93.   show card  field "note"
  94.   put empty into molar
  95.   put empty into acid
  96.   put empty into volume
  97.   put empty into conc
  98.   PUT 1 INTO DIM
  99.   PUT 26 INTO TOP
  100.  
  101.   GO TO CARD 1
  102.   show card field "note"
  103.   DIMMER2
  104.   PUT 1 INTO DIM
  105.   PUT 7 INTO TOP
  106.   DIMMER
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 6 (field)
  112. -- low flags: 81
  113. -- high flags: 0001
  114. -- rect: left=368 top=31 right=326 bottom=509
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 3
  119. -- text size: 20
  120. -- style flags: 256
  121. -- line height: 26
  122. -- part name: note
  123.  
  124.  
  125. -- part 7 (button)
  126. -- low flags: 00
  127. -- high flags: 8002
  128. -- rect: left=464 top=325 right=342 bottom=512
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: info
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   push card
  140.   go to card "info"
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 8 (button)
  146. -- low flags: 00
  147. -- high flags: 8000
  148. -- rect: left=304 top=292 right=342 bottom=353
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 1011 / 1011
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: home
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   go home
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part contents for card part 6
  165. ----- text -----
  166.  
  167. Use Caution
  168. when 
  169. Making
  170. Acid
  171. or
  172. Base
  173. Solutions
  174.  
  175. -- part contents for card part 4
  176. ----- text -----
  177.  
  178. 400 ml
  179. of
  180. .30 M
  181. Potassium Hydroxide
  182.  
  183. USE
  184. 6.7 gms
  185. of
  186. Solid
  187. Potassium Hydroxide